-- 9/1/98 by Paul Sebastien, pauls@sirius.com, http://www.bitstream.net/psykosonik
global notePlayer
property pWhichEvent
property pWhichChannel
property pWhichBank
property pWhichProgram
property pWhichNote
property pWhichDuration
property pWhichVelocity
on getPropertyDescriptionList
-- initialize the Beatnik Xtra instance
-- NOTE: you may want to instantiate multiple instances like the one below, using different instance names each time, in order to play note events on multiple instances simultaneously, if that's what you need to do. You can copy and paste this initializing script below and just change 'notePlayer' to 'notePlayer2' and 'notePlayer3' and so on, for each instance, and then set the mouse event scripts or 'doIt' script to target these additional instances accordingly, depending on how many instances you need.
put "------------------------------"
if ilk(notePlayer) = #instance then stop(notePlayer)
set notePlayer = VOID
set notePlayer = new(xtra "beatnik",TRUE)
set bankFileName = the moviePath & "patches.hsb"
put "notePlayer =" && notePlayer
put "Bank =" && bankFileName
put "SetSampleLibrary(notePlayer) = " & setsampleLibrary(notePlayer, bankFileName)
put "SetReady(notePlayer) = " & setReady(notePlayer)
put "isReady(notePlayer) = " & isReady(notePlayer)
if not(isReady(notePlayer)) then
alert "The Beatnik Xtra did not initialize, the Beatnik soundbank file 'patches.hsb' must be in the same folder as your current Director movie is in (or modify the path in the script). Also, make sure that the Xtra (BEATNIK.X32) is added to this movie."
exit
end if
-- finished initializing the Beatnik Xtra instance
if the pWhichEvent of me = #mouseDown then doIt me
end
on mouseUp me
if the pWhichEvent of me = #mouseUp then doIt me
end
on mouseEnter me
if the pWhichEvent of me = #mouseEnter then doIt me
end
on mouseLeave me
if the pWhichEvent of me = #mouseLeave then doIt me
end
on mouseWithin me
if the pWhichEvent of me = #mouseWithin then doIt me
end
on enterFrame me
if the pWhichEvent of me = #enterFrame then doIt me
end
on exitFrame me
if the pWhichEvent of me = #exitFrame then doIt me
end
on stopMovie
global notePlayer
stop(notePlayer)
closeBeatnik(notePlayer)
set notePlayer=VOID
end stopMovie
on getBehaviorDescription
set description = "PlAY NOTE LITE BEHAVIOR" && RETURN & "by Paul Sebastien pauls@sirius.com" && RETURN && RETURN & "This Beatnik Behavior allows you to play note events directly to the Headspace Audio Engine, through a Beatnik Xtra instance named 'notePlayer'. You can edit this behavior's script to choose a different instance name if necessary, or specify multiple instances." && RETURN && RETURN & "PARAMETERS:" && RETURN && RETURN & "ò Choose a MIDI channel:" && RETURN & "...Let you choose a MIDI channel for the note to be played on (1-16)." && RETURN && RETURN & "ò Choose a trigger event:" && RETURN & "...Lets you choose which Director event you want to trigger the note." && RETURN && RETURN & "ò Choose a Beatnik bank number:" && RETURN & "...Lets you specify which Beatnik bank to play the note event to, where 0 is the standard General MIDI bank, 1 is the Beatnik Extended Bank, and 2 is the user/custom bank which can contain custom samples." && RETURN && RETURN &"ò Enter a program/instrument number (0-127):" && RETURN & "...Lets you enter the instrument program number (0-127) for the sound to be played." && RETURN && RETURN &"ò Enter a note number:" && RETURN & "...Lets you enter the note number for the note you want to play (0-127)" && RETURN && RETURN &"ò Enter a velocity:" && RETURN & "...Lets you enter the velocity (0-127) for the note that you want to play." && RETURN && RETURN &"ò Enter a duration in milliseconds (1000 = 1 second):" && RETURN & "...Lets you enter a duration/length for the note to play before it stops." && RETURN && RETURN &"IMPORTANT:" && RETURN &&RETURN & "- This behavior requires that the Beatnik Xtra Lite is properly added to your Director project, and also, the Beatnik soundbank (patches.hsb) must be in the same directory as your Director project file, otherwise you should change the path to the soundbank in this behavior's script if the soundbank resides elsewhere." && RETURN && RETURN & "- If you want to use this behavior to play notes on multiple instances simultaneously, you should modify the Beatnik instance name used in this behavior's script so it is unique for each instance. Currently, the instance name used is 'notePlayer', so if you want to use multiple instances or instances named something other than 'notePlayer', you can modify the name in the script to 'notePlayer2' and so on, as needed, to create multiple separate instances that can have notes played through them." && RETURN &&RETURN & "For more information on instantiating the Beatnik Xtra Lite, refer to the documentation or other Beatnik Xtra sample movies." && RETURN && RETURN & "To upgrade to Beatnik Behaviors Pro, or for more information on Beatnik-related products and music files, visit the Headspace web site at:" && RETURN && RETURN & "http://www.headspace.com"